with Ada.Strings.Unbounded;
use Ada.Strings.Unbounded;
with TJa.Calendar;
use TJa.Calendar;
with TJa.Sockets;
use TJa.Sockets;

package Message is

   procedure Send_Message(Socket : in out Socket_Type; Header : in out Unbounded_String; Text : in out Unbounded_String);
   procedure Recieve_Message(Text : in out Unbounded_String);
end Message;
